home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / dunquest.arc / MENU.BAS < prev   
Encoding:
BASIC Source File  |  1985-10-29  |  1.3 KB  |  49 lines
  1. 10 'MENU - DUNGEON MASTERS ASSISTANT - MAIN MENU
  2. 20      SCREEN 3
  3. 30      KEY OFF
  4. 40      WIDTH 20
  5. 50      COLOR 1,4
  6. 60      CLS
  7. 70      LOCATE 4,1
  8. 80      PRINT "       THE"
  9. 90      LOCATE 7,1
  10. 100     PRINT "      DUNGEON"
  11. 110     LOCATE 10,1
  12. 120     PRINT "      MASTERS"
  13. 130     LOCATE 13,1
  14. 140     PRINT "     ASSISTANT"
  15. 150     LOCATE 22,1
  16. 160     PRINT "BY BILL CHELMOWSKI"
  17. 170 'KILL TIME
  18. 180     FOR X = 1 TO 1000
  19. 190       NEXT X
  20. 200 'PRINT MENU
  21. 210     SCREEN 1
  22. 220     WIDTH 40
  23. 230     COLOR 4,1
  24. 240     CLS
  25. 250     LOCATE 3,1
  26. 260     PRINT "     THE DUNGEON MASTERS ASSISTANT"
  27. 270     LOCATE 6,10
  28. 280     PRINT "1. PLAYER CHARACTERS"
  29. 290     LOCATE 8,10
  30. 300     PRINT "2. THE SUPPLY SHOPPE"
  31. 310     LOCATE 10,10
  32. 320     PRINT "3. THE QUEST"
  33. 330     LOCATE 12,10
  34. 340     PRINT "9. THE END"
  35. 350 'GET REPLY
  36. 360     DEF SEG=0: POKE 1050,PEEK(1052)  'CLEAR KEYBOARD BUFFER
  37. 370     LET REPLY$ = INKEY$
  38. 380     IF REPLY$ = "" THEN GOTO 370
  39. 390     IF REPLY$ = "1" THEN CHAIN "DUNCHAR"
  40. 400     IF REPLY$ = "2" THEN CHAIN "DUNSHOP"
  41. 410     IF REPLY$ = "3" THEN CHAIN "DUNQUEST"
  42. 420     IF REPLY$ = "9" THEN GOTO 440
  43. 430     GOTO 370
  44. 440 'END
  45. 450     CLS
  46. 460     SYSTEM
  47. 1000 'RETURN POINT
  48. 1110    GOTO 200   'PRINT MENU
  49.